home *** CD-ROM | disk | FTP | other *** search

---

/ AmigActive 2 / AACD 2.iso / AACD / Programming / fpc / doc / ref / img152.gif

< prev

next >

Graphics Interchange Format  |  1998-09-25  |  3KB  |  522x355  |  1-bit (2 colors)

Labels: black | darkness
OCR: Function: Integer; FuncType = Var A Integer; Function AddOne: Integer; begin A := A+1; Add One : A; end; Var F FuncType; : N : Integer ; begin A = 0; F = AddOne; { Assign Add One to F. Don't call AddOne} N = AddOne; { N := 1 !!} end.

---